REPORT ZINTERNALTABLE]1. 


* DATA IT КМА1 TYPE TABLE OF КМА1. " --> IT WILL WORKS 
FOR ALL COLUMNS ....... 


TYPES:BEGIN OF ZSTR КМА1, 


KUNNR TYPE KUNNR, 
LAND1 TYPE LANDI1 GP, 
МАМЕ1 ТҮРЕ NAME1 GP, 
NAME2 ТҮРЕ МАМЕ? GP, 
ORTO1 ТҮРЕ ORTO1 GP, 


END OF ZSTR КМА1. 


" TYPES IS USED TO DEFINE THE USER DEFINED STRUCTURE 


DATA ІТ KNA1 TYPE TABLE OF ZSTR КМА1. 


SELECT KUNNR LAND1 МАМЕ1 NAME2 ORTO1 FROM КМА1 
INTO TABLE IT KNA1 

WHERE LANDI = 'DE'. 
SORT ІТ KNA1 DESCENDING BY KUNNR. 


CALL FUNCTION 'GUI DOWNLOAD' 


EXPORTING 

FILENAME = 'DAMY ОАТА\ОАТА.ТХТ' 
TABLES 

DATA TAB = ІТ KNA1 


WRITE 'SAVED SUCCESSFULLY . 


REPORT ZINTERNALTABLE2. 


> DATA IT КМА1 TYPE TABLE OF КМА1. " --> IT WILL WORKS 
FOR ALL COLUMNS ....... 


PARAMETERS p cntry TYPE LAND1 GP. 


TYPES:BEGIN OF ty КМА1, 


KUNNR TYPE KUNNR, 
LAND1 TYPE LANDI1 GP, 
МАМЕ1 TYPE МАМЕ1 GP, 
NAME2 ТҮРЕ МАМЕ? GP, 
ORTO1 TYPE ORTO1 GP, 


END OF ty КМА1. 


" TYPES IS USED TO DEFINE THE USER DEFINED STRUCTURE 


DATA : IT KNA1 TYPE TABLE OF ty КМА1, 
wa Кпа1 type ty Кпа1. 


SELECT KUNNR LAND1 NAME1 NAME2 ORTO1 FROM КМА1 
INTO TABLE IT КМА1 

WHERE LANDI - p cntry. 
SORT IT KNA1 DESCENDING BY KUNNR. 


CALL FUNCTION 'GUI DOWNLOAD' 
EXPORTING 
FILENAME = DAMY ОАТА\ОАТА.ТХТ' 


TABLES 
DATA TAB = IT КМА1 


WRITE 'SAVED SUCCESSFULLY ......... Е 
uline. 

WRITE /. 

WRITE /. 


| ООР AT it кпа1 INTO wa kna1 from 10 TO 20. 
WRITE / WA КМА1. 
ENDLOOP. 


REPORT ZINTERNALTABLE3 LINE-SIZE 150. 


> DATA IT КМА1 TYPE TABLE OF КМА1. " --> IT WILL WORKS 
FOR ALL COLUMNS ....... 


PARAMETERS p cntry TYPE LAND1 GP. 


PARAMETERS : CB FILE AS CHECKBOX DEFAULT 'X', 
CB DISP AS CHECKBOX . 


TYPES:BEGIN OF ty КМА1, 


KUNNR TYPE KUNNR, 
LAND1 TYPE LANDI1 GP, 
МАМЕ1 TYPE NAME1 GP, 


NAME2 ТҮРЕ МАМЕ? GP, 
ORTO1 TYPE ORTO1 GP, 


END OF ty КМА1. 


" TYPES IS USED TO DEFINE THE USER DEFINED STRUCTURE 


DATA : IT KNA1 TYPE TABLE OF ty КМА1, 
wa Кпа1 type ty Кпа1. 


SELECT KUNNR LAND1 МАМЕ1 NAME2 ORTO1 FROM КМА1 
INTO TABLE IT КМА1 

WHERE LANDI - p cntry. 
SORT IT KNA1 DESCENDING BY KUNNR. 


IF CB FILE = 'X'. 


CALL FUNCTION 'GUI DOWNLOAD' 
EXPORTING 
FILENAME = DAMY ОАТА\ОАТА.ТХТ' 


TABLES 
DATA TAB = ІТ КМА1. 


WRITE 'SAVED SUCCESSFULLY ......... e 
ENDIF. 
uline. 


WRITE /. 
IF CB DISP = 'X'. 
LOOP AT it kna1 INTO wa Кпа1. 


WRITE / WA КМА1. 
ENDLOOP. 


* LOOP AT it knal INTO wa Кпа1 From 10 TO 20. 

* WRITE :, SY-TABIX, WA KNAI1-KUNNR COLOR 1, WA KNAI- 
NAME1 COLOR 5, wa Кпа1-пате2 COLOR 7. 

* ENDLOOP. 


ENDIF. 


REPORT ZINTERNALTABLEA4. 
PARAMETERS p id type ZEMP ID. 


TYPES : BEGIN OF TY. EMP, 
NAME TYPE ZNAME30, 
AGE ТҮРЕ ZAGE10, 
EMAIL TYPE ZEMAIL30, 
ADDRESS TYPE ZADDRESS30, 
END OF TY EMP. 


DATA : IT EMP TYPE TABLE OF TY EMP, 
WA EMP TYPE TY EMP. 


SELECT NAME AGE EMAIL ADDRESS FROM ZEMPLOYEES 
INTO TABLE ІТ EMP WHERE EMP ID = P ID. 


LOOP AT IT EMP INTO WA EMP. 
WRITE :/ SY-TABIX , WA EMP-NAME COLOR 1 , WA EMP-AGE COLO 
R 2, WA EMP-EMAIL COLOR 3 , WA EMP-ADDRESS COLOR 4. 
ENDLOOP. 


REPORT ZINTERNALTABLE5. 
"PARAMETERS p SAL type ZSAL. 


TYPES : BEGIN OF TY EMP, 
EMP ID TYPE ZEMP ID, 
NAME TYPE ZNAME30, 
AGE TYPE 2АСЕ10, 
EMAIL TYPE ZEMAIL30, 
ADDRESS TYPE ZADDRESS30, 
SALARY TYPE ZSAL, 

END OF ТҮ EMP. 


DATA : IT EMP TYPE TABLE OF TY EMP, 
WA EMP TYPE TY EMP. 


SELECT EMP ID NAME AGE EMAIL ADDRESS SALARY FROM YEMPLOY 
EES 
INTO TABLE ІТ EMP." WHERE SALARY > P SAL. 
SORT ІТ EMP DESCENDING BY EMP ID. 


PERFORM DISPLAY DATA. 
CLEAR WA EMP. 


WA EMP-EMP ID - 109. 

WA EMP-NAME = 'JAYA'. 

WA EMP-AGE - 22. 

WA EMP-EMAIL = 'JAYA(QYGMAIL.COM'. 
WA EMP-ADDRESS = '12/3 SMSN ASS,'. 
WA EMP-SALARY - 12000. 


APPEND WA ЕМР TO IT EMP. 


CLEAR wa emp. 


WA EMP-EMP ID = 110. 

WA EMP-NAME = 'JAINI'. 

WA EMP-AGE - 22. 

WA EMP-EMAIL = 'JAINIGGMAIL.COM'. 

WA EMP-ADDRESS = '112 IDSFMSN ASS,'. 
WA EMP-SALARY - 15000. 


INSERT wA EMP INTO IT EMP INDEX 5. 


APPEND LINES OF IT EMP TO IT EMP. 
SORT ІТ EMP DESCENDING BY EMP ID. 
WRITE / 'AFTER APPENDING ......... а 
PERFORM DISPLAY DATA. 


DELETE ADJACENT DUPLICATES FROM ІТ EMP COMPARING AL 
L FIELDS. 

WRITE / 'AFTER DELETING'. 

PERFORM DISPLAY DATA. 


READ TABLE IT EMP INTO WA EMP INDEX 10. 
WRITE / 'AFTER READING*'. 


WRITE :/20 wa emp-NAME COLOR 1. 


“data v line type i. 
ж 


жу line = v line < IT ЕМР >. 
* 


“write :; по oft records ...... ', v line COLOR 5. 


clear wa emp. 


READ TABLE it emp INTO wa emp WITH KEY AGE - 25 BINARY S 
EARCH. 
write :/ ‘пате is ', wa emp-name COLOR 2 LEFT-JUSTIFIED. 


FORM DISPLAY DATA. 


write:/10 sy-uline(117). 

WRITE :/10 SY-VLINE, (5) INDEX' COLOR COL HEADING , SY- 
VLINE, (10) EMPLOYEE ID' COLOR COL HEADING, SY-VLINE, (10) 'N 
АМЕ" COLOR COL HEADING , SY-VLINE, (10) АСЕ" COLOR COL НЕ 
ADING , SY-VLINE, (25) EMAIL' COLOR COL HEADING , SY-VLINE, (25 


) 
'"'ADDRESS' COLOR COL HEADING , SY-VLINE, (10) SALARY' COLO 


R col heading, SY-VLINE. 


LOOP AT IT EMP INTO WA ЕМР. 
write:/10 sy-uline(117). 

WRITE :/10 SY-VLINE, (5) SY-TABIX , SY-VLINE, (10) WA EMP-EMP ID 

COLOR 6, SY-VLINE, (10) WA EMP-NAME COLOR 1 , SY-VLINE, (10) 

WA EMP-AGE COLOR 2 , SY-VLINE, (25) WA EMP-EMAIL COLOR 3,5 

Y-VLINE, (25) WA EMP-ADDRESS COLOR 4, SY-VLINE, 

(10) WA EMP-SALARY COLOR / , SY-VLINE. 

ENDLOOP. 

write:/10 sy-uline(117). 

ENDFORM. 


REPORT ZINTERNALTABLE6. 
PARAMETERS p SAL type ZSAL. 


TYPES : BEGIN OF TY EMP, 
EMP ID TYPE ZEMP ID, 
NAME TYPE ZNAME30, 


AGE ТҮРЕ ZAGE10, 
EMAIL TYPE ZEMAIL30, 
ADDRESS TYPE ZADDRESS30, 
SALARY TYPE ZSAL, 

END OF TY EMP. 


DATA : "IT ЕМР TYPE sortea table ої TY EMP WITH UNIQUE К 
ey emp id, 

"IT EMP TYPE sortea table ої TY ЕМР WITH non-unique К 
ey age, 

IT EMP TYPE hashed table of TY EMP WITH UNIQUE key emp 
id, 


WA EMP TYPE TY EMP. 


SELECT EMP ID NAME AGE EMAIL ADDRESS SALARY FROM YEMPLOY 
EES 
INTO table ІТ EMP WHERE SALARY > P SAL. 


PERFORM DISPLAY DATA. 


FORM DISPLAY DATA. 


write:/10 sy-uline(117). 

WRITE :/10 SY-VLINE, (5) INDEX' COLOR COL HEADING , SY- 
VLINE, (10) EMPLOYEE ID' COLOR COL HEADING, SY-VLINE, (10) 'N 
АМЕ" COLOR COL HEADING , SY-VLINE, (10) АСЕ" COLOR COL HE 
ADING , SY-VLINE, (25) EMAIL' COLOR COL HEADING , SY-VLINE, (25 
) 

'"'ADDRESS' COLOR COL HEADING , SY-VLINE, (10) SALARY' COLO 
R col heading, SY-VLINE. 


LOOP AT IT EMP INTO WA EMP. 


write:/10 sy-uline(117). 
WRITE :/10 SY-VLINE, (5) SY-TABIX , SY-VLINE, (10) WA EMP-EMP ID 
COLOR 6, SY-VLINE, (10) WA EMP-NAME COLOR 1 , SY-VLINE, (10) 
WA EMP-AGE COLOR 2 , SY-VLINE, (25) WA EMP-EMAIL COLOR 3,5 
Y-VLINE, (25) WA EMP-ADDRESS COLOR 4, SY-VLINE, 


(10) WA EMP-SALARY COLOR / , SY-VLINE. 
ENDLOOP. 

write:/10 sy-uline(117). 

ENDFORM. 


REPORT ZINTERNALTABLE OLDA. 
PARAMETERS p id type ZEMP ID. 


TYPES : BEGIN OF TY. EMP, 
NAME TYPE ZNAME30, 
AGE ТҮРЕ ZAGE10, 
EMAIL TYPE ZEMAIL30, 
ADDRESS TYPE ZADDRESS30, 
END OF TY EMP. 


жжжжжжжжжжжжжжжжжжжж 


* WITH HEADER LINE 


жжжжжжжжжжжжжжжжжжжж 


*"e**DATA : ІТ ЕМР TYPE standard table ої ТҮ ЕМР WITH HE 
ADER LINE. 


жжжжж 
жжжжж 


Yee**SEI ECT МАМЕ AGE EMAIL ADDRESS FROM yEMPLOYEES 
dein INTO TABLE IT ЕМР." WHERE EMP ID = P ID. 

***** 

ее: | ООР АТ IT EMP. 

"BREF IF it етр[] is initial. 

***** write :,' no data found '. 

**e*WRITE :/ SY-TABIX , it emp-NAME COLOR 1 , 

viii emp-AGE COLOR 2, it EMP-EMAIL COLOR 3 , it EMP- 
ADDRESS COLOR 4. 

жжжж+ ENDIF. 


жжжжж 


Tram ENDLOOP. 


жжжжжжжжжжжжжжж 


* OCCURS 


жжжжжжжжжжжжжжж 


DATA : “/Т ЕМР TYPE ТҮ ЕМЕ OCCURS 100, "NOT RECOMM 


"IT ЕМР TYPE TABLE OF TY ЕМР INITIAL SIZE 100, "КЕ 
СОММЕМРЕР. ,.... 


пш yr WE TES 0 жжжжж 
IT ЕМР TYPE TY EMP OCCURS 0, 
WA EMP TYPE TY EMP. 


SELECT NAME AGE EMAIL ADDRESS FROM yEMPLOYEES 
INTO TABLE ІТ EMP ." WHERE EMP ID = Р ID. 


LOOP AT IT EMP INTO WA EMP. 
IF it emp İS initial. 


write :/' no data found '. 

else. 

WRITE :/ SY-TABIX , WA EMP-NAME COLOR 1. 
ENDIF. 


ENDLOOP. 


Example of Itab using all keywords 


REPORT  ZDEMO INTERNAL TABLE EXAMPLE6 no standard page 
heading line-size 200. 


**** Structure DATA Type ****** 


types : begin of ty zemp, 
ЕМР ID type 7ЕМР ID, 
NAME type 7МАМЕ1, 
AGE type  ZAGE, 
SALARY TYPE ZSALARYI1, 
EMAIL type ZEMAIL, 
end of ty zemp. 


data it ty zemp type standard table of ty zemp. 

data wa ty zemp type ty zemp. 

DATA V LINES TYPE I VALUE 0. 

select emp id name age salary email from zemployee into 


table it ty zemp. 
sort it ty zemp descending by name. 


*sort it ty zemp by name descending AGE ASCENDING . 


perform disp emp. 
CLEAR WA TY ZEMP. 


WA TY ZEMP-EMP ID - 109. 
WA TY ZEMP-NAME - 'JAYA'. 

WA TY ZEMP-AGE - 22. 

WA TY ZEMP-SALARY - 12000. 

WA TY ZEMP-EMAIL - 'JAYAGGMAIL.COM'. 


APPEND WA TY ZEMP TO IT TY ZEMP. 
CLEAR WA TY ZEMP. 


WA TY ZEMP-EMP ID - 110. 
WA TY ZEMP-NAME - 'JAINI'. 

WA TY ZEMP-AGE - 22. 

WA TY ZEMP-EMAIL = 'JAINIGGMAIL.COM'. 
WA TY ZEMP-SALARY - 15000. 


INSERT WA TY ZEMP INTO it TY ZEMP INDEX 4. 
*APPEND WA TY ZEMP TO IT TY ZEMP. 


APPEND LINES OF it TY ZEMP TO it TY ZEMP. 
*APPEND LINES OF it TY ZEMP FROM 2 TO 3 TO it TY ZEMP . 


SORT it TY ZEMP DESCENDING BY EMP ID. 
WRITE / 'AFTER APPENDING ......... С 
PERFORM disp emp. 


DELETE ADJACENT DUPLICATES FROM it TY ZEMP COMPARING AL 
L FIELDS. 
WRITE / 'AFTER DELETING'. 


PERFORM disp emp. 


READ TABLE it TY ZEMP INTO wa TY ZEMP INDEX 10. 
WRITE / 'AFTER READING'. 


WRITE :/20 wa TY ZEMP-NAME COLOR 1. 
clear wa ty zemp. 
*READ TABLE IT TY ZEMP INTO WA TY ZEMP INDEX 5. 


read table it ty zemp into wa ty zemp with key EMP ID - 
"301" 


WRITE :/ ' name is' , wa TY ZEMP-NAME COLOR 1. 


WA TY ZEMP-NAME - 'vIKAS sHRIVASTAVA'. 
WA TY ZEMP-age - '22'. 


*MODIFY IT TY ZEMP FROM WA TY ZEMP INDEX 3 TRANSPORTING 
NAME AGE. 

MODIFY IT TY ZEMP FROM WA TY ZEMP TRANSPORTING NAME AGE 
WHERE EMP ID - '101'. 


V LINES - LINES( IT TY ZEMP ). 


SKIP 3, 
WRITE :/ 'NO OF LINES ARE ----> ', V LINES. 


PERFORM DISP EMP. 


SKIP 2, 

WRITE 'After deletion '. 

DELETE IT TY ZEMP index 3. 

*DELETE ІТ TY ZEMP FROM 2 TO 3. 

*DELETE IT TY ZEMP WHERE NAME - 'JAINI'. 

*DELETE IT TY ZEMP FROM 2 TO 3 WHERE AGE - '22'. 


PERFORM DISP EMP. 
form disp emp. 
LOOP AT it ty zemp into wa ty zemp. 

write :/ sy-tabix color 2 , wa ty zemp-emp id color 3 
, ма ty zemp-name color 4, 

wa ty zemp-age color 5 , wa ty zemp-salary c 

olor 6, wa ty zemp-email color 7. 
ENDLOOP. 
endform. 


REPORT  ZDEMO INTERNAL TABLE Collect EXAMPLE. 


types : begin of ty tabl, 
name type char5, 
Class type int4, 
roll type int4, 
end of ty tabl. 


data it tabll type table of ty tabl. 
data wa tabl type ty tabl. 

wa tabl-name - 'Vikas'. 

wa tabl-class - 20. 

wa tabl-roll = 3. 

Collect ма tabl into it tabll. 

wa tabl-name - 'Vik'. 


wa tabl-class - 20. 
wa tabl-roll = 3. 


Collect ма tabl into it tabll . 
wa tabl-name - 'Vikas'. 

wa tabl-class - 20. 

wa tabl-roll - 30. 


Collect ма tabl into it tabll . 
LOOP AT it tabll into wa tabl. 


write: / wa tabl-name, wa tabl-class, wa tabl-roll. 
ENDLOOP. 


